home *** CD-ROM | disk | FTP | other *** search
/ Birth of Jesus Activity Center / Birth of Jesus Activity Center.iso / mac / data / babyj.dir / 00005_Script_5 < prev    next >
Text File  |  1997-11-02  |  743b  |  30 lines
  1. -- wait for click
  2. global gIntroFlashList, gIntroFlashIndex, gIntroFlashTimer
  3.  
  4. on exitFrame
  5.   if soundbusy(1) = FALSE then
  6.     puppetsound 0
  7.     --    enableMouseEvents
  8.   else
  9.     if gIntroFlashIndex <= count(gIntroFlashList) then
  10.       set event = getAt(gIntroFlashList, gIntroFlashIndex)
  11.       if ((the timer - gIntroFlashTimer) > getAt(event, 1)) then
  12.         if objectP(getAt(event, 2)) then 
  13.           flash getAt(event, 2)
  14.         else
  15.           flashSprite getAt(event, 2), getAt(event, 3)
  16.         end if
  17.         set gIntroFlashIndex = gIntroFlashIndex + 1
  18.       end if
  19.     end if
  20.     go to the frame
  21.   end if
  22. end
  23.  
  24. on mouseDown
  25.   puppetsound 0
  26.   --  enableMouseEvents
  27.   go to the frame + 1
  28. end on mouseDown
  29.  
  30.